home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / fido / ROCK14.lha / waitrock < prev   
Text File  |  1995-03-01  |  166b  |  14 lines
  1. /* Wait until rock exits */
  2.  
  3. Parse upper arg delay .
  4.  
  5. if ~datatype(delay,'w') then delay=3
  6.  
  7. delay=delay*50
  8.  
  9. do while show('P','ROCK')
  10.   call delay(delay)
  11. end
  12.  
  13. exit 0
  14.